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FORMATTED LISTING 



#################################################################################################### 

# PROJECT : Apple /// SOS RS-232 Driver 1.30 (6502 Assembly Source Code) 

# FILE NAME: RS232.text 

#################################################################################################### 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 



.TITLE 



"SOS RS232 DRIVER" 



SOS RS232 DRIVER 

(C) APPLE COMPUTER 1981, 1982, 1983 
Jim Trezzo 1/07/83 



DEVTYPE 
SUBTYPE 
MAN ID 
RELEASE 



V 1.01 

V 1.02 

V 1.30 



.EQU 
.EQU 
.EQU 
.EQU 



9/11/81 Clear NO_OUTPUT flag during reset 
4/23/82 Don't drop DTR during reset and wait for 
DLYCNT before close. 
1/07/83 Add comment field 



63 
01 
01 

1300 



I/O CHAR DEV 
DEV SUBTYPE 
MANUFACTURER ID-APPLE 
RELEASE NUMBER-BCD FORMAT 



The macro SWITCH performs an N way branch based on a switch index. The 
maximum value of the switch index is 127 with bounds checking provided 
as an option. The macro uses the A and Y registers and alters the C, 
Z, and N flags of the status register, but the X register is unchanged. 



SWITCH [index], [bounds], adrs_table, 



'] 



index 



bounds 



This is the variable that is to be used as the switch index. 
If omitted, the value in the accumulator is used. 

This is the maximum allowable value for index. If index 
exceeds this value, the carry bit will be set and execution 
will continue following the macro. If bounds is omitted, 
no bounds checking will be performed. 

adrs_table This is a table of addresses (low byte first) used by the 
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000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 



$010 



switch. The first entry corresponds to index zero. 

If an asterisk is supplied as the fourth parameter, the 
macro will push the switch address but will not exit to 
it; execution will continue following the macro. The 
program may then load registers or set the status before 
exiting to the switch address. 



. MACRO 


SWITCH 




. IF 


" % 1 " K > " " 


;If PARM1 is present, 


LDA 


-o 1 


; Load A with switch index 


. ENDC 






. IF 


h g, 2 ii < y » ii 


;If PARM2 is present, 


CMP 


#%2 + l 


; Perform bounds checking 


BCS 


$010 


; on switch index 


.ENDC 






ASL 


A 




TAY 






LDA 


%3+l,Y 


; Get switch address from table 


PHA 




; and push onto stack 


LDA 


%3,Y 




PHA 






. IF 


■■ % 4 ■■ <> ii * ii 


;If PARM4 is omitted, 


RTS 




; Exit to code 


. ENDC 




/Otherwise, drop through 


. ENDM 







$210 



INCREMENT WORD MACRO 



.MACRO INW 

INC %1 

BNE $210 

INC %1+1 
. ENDM 



INCREMENT ADDRESS MACRO 

INCREMENTS 3 BYTE ADDRESS 



. MACRO 



INCADR 
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n n n n o o 




INC 


-o 1 




nnnno a 
U UU U o 4 




BNE 


9 3 1 




n n n n o c 
U UU U 3 




INC 


%1 + 1 




r\ r> r\ r\ o r 

00086 




BNE 


5 o 1 


/Bank overflow ? 


r\ r\ c\ r\ c\ ~7 

000087 




SEC 




; Yes 


n n n n o o 

8 8 




ROR 


%1 + 1 




n n n n n n 

000089 




INC 


%1+1+1400 


; Increment X byte 


000090 


$310 


. ENDM 






A A A A n 1 

000091 










000092 




. MACRO 


SET_1MHZ 




uu u y 5 










r\ r\ r\ r\ n a 

u uu u y 4 




LDA 


E_REG 




n n n n n c 

u uu u y 




ORA 


#B1 1 UN / 


. {""i J_ 1 ft/ITT r? -J _ 

; Set 1 mhz mode 


n n r\ n n r 

u u u u y o 




STA 


E_REG 




n n. n n. n n 

(j uu u y / 




. hNDM 






n n n n n o 

u uu u y o 










n n n a n n 

0000 99 




. MACRO 


SET_2MHZ 




000100 










000101 




LDA 


E_REG 




AA A1 A *~l 

000102 




AND 


#07F 


; Set 2 MHZ mode 


n n n i no 

00010 j 




STA 


E_REG 




000104 




. ENDM 






n n n i n c 
000105 










r\ r\ n i n ^ 
0010b 




. PROC 


RS2 3 2 




n n n i n t 
010 / 










n n n i no 

000108 










n n n i n n 

00109 


; SOS 


GLOBAL DATA AND 


SUBROUTINES 




n n n i i n 

00110 










A A A1 1 -1 

00111 


ALLOCS IR 


. EQU 


1913 


; SOS interrupt allocation manager 


r\ n r\ i i o 
0112 


DEALCS IK 


. EQU 


1916 


; SOS interrupt deallocation manager 


n n n i i o 

00 1 1 j 


SYSERR 


. EQU 


192 8 


; SOS error return 


A A A 1 -I A 

U UU 1 1 4 










00115 


; SOS 


Error Codes 






000116 










UUU11 / 


XREQCUDE 


. EQU 


o n 
2 U 


; Invalid request code 


n n n i i o 
U UU 1 1 o 


XL 1 LCODE 


. EQU 


z 1 


/Invalid control/status code 


u uu 1 1 y 


XCTLPARM 


. EQU 


22 


; Invalid control/ status param 


a a ai on 
U UU lZ U 


XNOTOPEN 


.EQU 


23 


/Device not open 


U U U 1 Z 1 


XNOTAVIL 


.EQU 


24 


/Device not available 


AAA1 O O 

U U U 1 z z 


XNORESRC 


.EQU 


25 


/Resource not available 


000123 


XBADOP 


.EQU 


26 


/ Invalid operation for device 


000124 










000125 


; HARDWARE I/O ADDRESSES 




000126 










000127 


ACIADATA 


.EQU 


0C0F0 


/ACIA DATA REGISTER 
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n n n 1 o o 


ACIASTAT 


. EQU 


0C0F1 






ALIA S1A1US REG1S1ER 


n n n i on 

u uu iz y 


ACIACMD 


. EQU 


i~i /~i r\ T-i 

OOOi 2 






AC1A COMMAND REGIS 1ER 


U UU 1 o U 


ACIACTL 


. EQU 


0C0F3 






AC1A CON1ROL REG1S1ER 


n n n i 01 
U UU 1 1 


E_REG 


. EQU 


Uf r Ur 






ENV1RONMEN1 REG1S1ER 


n n n 1 on 

1 32 


B_REG 


. EQU 


n T — 1 T — ' T — 1 T — ' 

0FFEF 






BANK REGISTER 


001 3 3 
















n n n 1 /i 

000134 




GENERAL 


EQUATES 










0001 Jo 
















n n n 1 ^ 

00136 


TRUE 


. EQU 


8 








000137 


FALSE 


. EQU 











n n n 1 00 
U UU 1 00 


BITONO 


. EQU 


n 1 
1 








n n n 1 on 

U UU 1 5 y 


BIT0N1 


. EQU 


02 








n n n 1 /in 
U UU 1 4 U 


BIT0N2 


. EQU 


4 








n n n 1 /1 1 
U U U 1 4 1 


BIT0N3 


. EQU 


O 








n n n 1 /i 
U U U 1 4 Z 


BIT0N4 


. EQU 


1 








n n n 1 /1 

00014 j 


BIT0N6 


. EQU 


4 








n n n 1 a a 

00144 


BIT0N7 


. EQU 


80 








n n n 1 /i r 

000145 


ASC_LF 


. EQU 


OA 








00014 6 


ASC_FF 


. EQU 


OC 








014 7 


ASC_CR 


. EQU 


OD 








n n n 1 a q 
U U U 1 4 8 


f 












a n n 1 /in 

00014 9 






. PAGE 










000150 
















000151 






. WORD 


n T — 1 T — ' T — 1 T — ' 

0FFFF 








000152 






. WORD 


1 3 . 








000153 






. ASCI I 


(C) Apple 


Computer 1981, 


1982, 1983. " 


n n n 1 c /1 

000154 






. ASCI I 


Built-in 


Serial Port RS- 


232 Driver . " 


000155 
















000156 
















a n n 1 r~ "~i 

000157 
















000158 




DEVICE 


INFORMATION 


BLOCK 








n n n 1 en 

000159 
















n n n 1 z - n 

000160 
















000161 




DEVICE 


HEADER BLOCK 










n n n 1 ^ n 

00162 
















0001 6 J 
















00164 


IDBLK 


. WORD 


0000 






LINK TO NEXT DEVICE HANDLER 


000165 






. WORD 


n n t,n 7\ t at 

Kb_MAlN 






ENTRY POINT ADDRESS 


000166 






. BYTE 


r 
O 






LENGTH OF DRIVER NAME 


U U U 1 6 / 






. ASC I I 


II TO C O O O 


ii 




DRIVER NAME 


000168 






.BYTE 


80, 00,00 






DEV NUM, DEV SLOT, DEV UNIT 


000169 






.BYTE 


DEVTYPE 






DEVICE TYPE 


000170 






.BYTE 


SUBTYPE 






DEV SUBTYPE 


000171 






.BYTE 


00 






FUTURE USE 


000172 






.WORD 


0000 






BLOCK COUNT-NOT USED 
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000173 




.WORD 


MAN ID 


/MANUFACTURER ID 




n A A 1 •~l A 

(J U (J 1 / 4 




.WORD 


RELEASE 


; RELEASE NUMBER-BCD 




01 id 












001 lb 












0001 / / 


; DEVICE 


CONFIGURATION BLOCK 






a n n 1 ""7 

00 0178 












u u u 1 / y 












nnni on 

UUUloU 


CNFGBLK 


.WORD 


1 
1 z . 


• r" 1 i"i'NTT7'Tf'~ , TT'D7\ r T"'Tf"i"N7 TDT r^CTf T T7 1 T\T(^ lr rLJ 

, CUNc IbUKAl 1UN JdLULJa LENblri 




n n n 1 01 
UUUlol 












00 1 82 


DCB 


.BYTE 


U 


/BAUD RATE - 30 




1 




.BYTE 


9 9 
z z 


/Data format 




a n n 1 /i 

000184 


;CTL - Hi nybble 








00 1 


; CMD - Lo nybble 








n nn 1 o £ 
1 




. BYTE 


U U 


/ Carriage return delay 




n n n i o t 
00 1 / 




. BYTE 


n n 



/Line feed delay 




n n n 1 o o 
000188 




. BYTE 


U U 


/Form feed delay 




nam on 

00 1 y 




. BYTE 


n n 



/ 00 - no protocol 




000190 


;80 - XON/XOFF 










000191 


; 4 — ENQ/ ACK 










000192 




. BYTE 


1 
1 3 


/Character to use as XOFF (o 


r ENQ) 


n n n i no 

00193 




. BYTE 


1 1 


/Character to use as XON (or 


ACK) 


A A A 1 Pi A 

000194 




. BYTE 


2 z 3 . 


/Buffer level which triggers 


XOFF 


a a a-| n c 

u uu i yo 




. BYTE 


1 z . 


/Buffer level which triggers 


XON 


u u u 1 y 




. BYTE 


n 


, unaracner counts ror £ji\iy/AUr\ 




a a a 1 n T 

0019 / 




. BYTE 





/Hardware handshake support 




n n n i no 

00198 












n n n 1 n n 

00199 


DLB Ll\l 


. EQU 








n n n n n 

000200 












n n n n 1 

U Oz 1 




.ASCII 


■1 

(C) Apple Computer Inc. 


19 8 3" 




r\ /-> r\ r\ 

000202 












n n n n 

000203 




.PAGE 








n n n o n /i 
000204 












n n n n c 

00020b 


; SOS Device 


Handler 


Interface 






n n A n r 
002 0b 












n n n n t 
00020 / 












n n n n 
000208 


SOSINT 


.EQU 


oco 






r\ r\ r\ ^ r\ d 

002 9 


REQCODE 


.EQU 


SOSINT+0 


/ SOS request code 




n n n 1 n 

00210 


BUFFER 


.EQU 


SOSINT+2 


/Buffer pointer 




AA A A1 1 

U UUz 1 1 


REQCNT 


.EQU 


SOSINT+4 


/Requested count/Byte count 




UUUzlz 


CTLSTAT 


.EQU 


SOSINT+2 


/Control/status code 




000213 


CSLIST 


.EQU 


SOSINT+3 


/Control/status list pointer 




000214 


RETPTR 


.EQU 


SOSINT+8 


/Returned count pointer 




000215 












000216 












000217 


r 
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UUUzlo 


; Zero Page Storage 




o uuz l y 


r 






r\ n n o o n 
(J UUzz U 








n n n o o i 
(J U (J Z Z 1 


r7 n f O 7\ T 7T7 1 

ZPGSAVE 


T7 1 ATT C j"i C T T\T T 1 HTl 

.EQU SOS1N1+0A 


; Saved zero page storage 


U UUzzz 








000223 


ZPGTEMP 


. EQU ZPGSAVE+00 


/Temporary zero page storage 


i~\ i~i i~\ o '"i /i 

000224 








00022b 


OPRODPTR 


.EQU 0E1 


/Producer pointer 


0022 6 


ICSMRPTR 


.EQU 0E2 


/ Consumer pointer 


022 7 


RETCNT 


.EQU 0E3 


/Returned byte count word 


n n n o o o 
(J UUzz O 








n n n o o n 

u uuzz y 








(JUUz oU 








n n r\ o o i 
U UUz 


; Private Variable Storage 




r\ r> r\ o o o 

000232 








n n n o o o 

0002 3 3 








000234 


C T ID 7\ "Pi ID 


V«7i"\ ID "Pi OT'DT'A'DTU 1 




00023b 


b 1K1 ABLB 


. BY IE 1,0 


/ACIA resource 


002 3 6 




. WORD AL1AM1H 




n n r\ o o 1 

UUUzi / 


Mill BANK 


D V T TP ri 

. BY IL U 




n r\ r\ o o o 

U UUz io 


C T Tl r'^TTTiTT 

S1RCOUN 1 


.EQU S1R1ABLE 




r\ n n o o o 

o ooz j y 








(J UUz 4 U 






/Device open flag 


n n n o yi 1 
U U Uz 4 1 


1 o In £j W Li 1 N Hj 


OV'TTT TP 7\ T CT7 1 


/Bit 7 (l=new line mode) 


n n n o /i o 
U U U z 4 Z 


NEWLINE 


.BYTE 


/Newline character 


n n r\ o /i o 
(J UUz 4 J 


IN_PR0G 


.BYTE 


/Bit / (1— XOrl m progress) 


U UUz 4 4 


;Bit 6 (1=X0FF 


needs to be sent) 




n n n o /i c 
U UUz 4 


SEND_X0N 


.BYTE 


/Bit / (1— xun needs to Joe sent) 


n n n o /i r 

00024 6 


RTS_FALSE 


.BYTE 


/Bit / (l=RTS raise) 


0247 


N0_0UTPUT 


.BYTE 


/Bit 7 (l=suspend output) 


r\ n n o /i o 

024c 


DLYCNT 


.BYTE 


/Delay count for MIH 


000249 


BRK_CNT 


.BYTE 


/ Interval count for Break signal 


000250 


CHAR_0UT 


.BYTE 


/Output character count for ENQ/ACK 


n n n o c 1 

0002bl 


IN_PR0G1 


.BYTE 


/Bit 7 (1=ENQ in progress) 


n n r\ o c o 

U UUz oz 








n n n o c o 
U UUz J 








n n n o c /i 
U UUz 4 


; Device 


control parameters 




n n n o c c 
U UUz OO 








UUUZ jo 








n n n 9 r 7 

UUUZ j / 


CNTL_PARAM 


.BYTE 15. 


/List length 


000258 








000259 


BAUD 


.BYTE 


/BAUD RATE 


000260 


D FORMAT 


.BYTE 


/Data format 


000261 


;CTL - Hi nybble 




000262 


; CMD - Lo nybble 
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a n n o c t 







/Carriage return delay 


nnnor/i 
(J UUz o4 


Lr UhLAi . BY lh 





; Line feed delay 


a a a a r c 
(J UUz 00 


1 h DELAY . BY It 





/Form feed delay 


a a a a £T 
U UUz 


PROIOCOL .BYIE 





; - none 


0002 6 / 


;80 - XON/XOFF 






02 68 


; 4 - ENQ/ ACK 






a a a A ^~ a 

0002 69 


CTLCHR1 .BYTE 





/Character to use as XOFF (or ENQ 


n n n o t n 

0002 /0 


CTLCHR2 . BYTE 





/Character to use as XON (or ACK) 


UUUz /I 


MAXBUF . BYTE 





/Buffer level which triggers XOFF 


UUUz /z 


; (or RTS raise) 






a a a a "7 a 
UUUz / o 


MINBUr .BY IE 





/Buffer level which triggers XON 


A A A A "7 /I 

UUUz / 4 


; (or RTS true) 






a a a a ""7 c 
UUUz / O 


/-ittti T1 f~* TvT T 1 T~) "\7 T T7 1 

OHARCJN 1 . BY 1L 





/Character count tor ENUj/ACK 


UUUz / o 







/ Hardware handshake 


n r\ r\ o n n 
UUUz / / 


; Bit / (i=enaJDieu) 






a n a a n o 
UUUz / o 


RD 1MMED1A1E .BY IE 





/Bit 7 (l=read immediate mode) 


A A A A ""7 A 

UUUz / 9 


STAT_REb .BYTE 





/ Status reg - saved from last int 


A A A A O A 

U U Uz o U 


STAT_LATCH . BYTE 





/Latched status bits - cleared by 


A A A A O 1 

002 81 


; or status request- 


1 




A A r\ A 1*1 A 

000282 


;Bit (l=parity error) 






n n n o o o 
002 0-3 


; Bit 1 (l=framing error) 






A A A A O A 

000284 


; Bit 2 (l=overrun) 






A A A A O C 

U U Uz bo 


;Bit o (1=DCD went raise) 






A A A o o r 

U UUz o b 


; Brt 6 (l=DSR went raise) 






A A A O O 1 

U UUz o / 


;Bit 7 (l=input character 


lost ) 




A A A O O O 

U UUz o o 








A A A O O A 

u UUz o y 


ONTL_LN . EQU 


* -CNTL_P ARAM 




A A A O Ci A 

u uuz y u 








A A A O Ci 1 

0002 91 








A A A A A A 

0002 92 


; Data Buffers 






A A A A A A 

0002 93 








n n n n rj /i 

002 94 








n n n o o c 
002 9o 


OBUr CN 1 . BY IE 





/ Local output buffer byte count 


002 9b 


(JbPROUPlR .BY1E 





/Producer buffer pointer 


n n n o o t 
0002 9 / 


(JCbMRrlR .BY IE 





/Consumer buffer pointer 


n r\ n o n o 

002 98 


OLOCBUF . BLOCK 


010 0, 


/ Local output buffer 


002 9 9 








000 300 


IBUFCNT .BYTE 





/ Local input buffer byte count 


A A A A A 1 

000301 


ISCSMRPTR .BYTE 





/ Input consumer pointer 


3 2 


1PKUJJP1K .BY1E 





/ Input producer pointer 


000303 


ILOCBUF .BLOCK 


0100, 


/Local input buffer 


000304 








000305 


.PAGE 






000306 








r 






000307 


i 
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000308 
000309 
000310 
000311 
000312 
000313 
000314 
000315 
000316 
000317 
000318 
000319 
000320 
000321 
000322 
000323 
000324 
000325 
000326 
000327 
000328 
000329 
000330 
000331 
000332 
000333 
000334 
000335 
000336 
000337 
000338 
000339 
000340 
000341 
000342 
000343 
000344 
000345 
000346 
000347 
000348 
000349 
000350 
000351 
000352 



RS232 DRIVER 



MAIN ENTRY POINT 



RS MAIN 



BADREQ 



NOTOPEN 



RS_REQSW 



. EQU 

SWITCH 



LDA 
JSR 



LDA 
JSR 



.EQU 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.PAGE 



REQCODE , 8 , RS_REQSW 



#XREQCODE 
SYSERR 



#XNOTOPEN 
SYSERR 



RS_READ-1 
RS_WRITE-1 
RS_STAT-1 
RS_CNTL-1 
BADREQ- 1 
BADREQ- 1 
RS_OPEN-l 
RS_CLOSE-l 
RS INIT-1 



; Invalid request code 



/Device not open 



;RS232 driver request switch 



RS232 Driver — Initialization Request 



RS_INIT 



.EQU 

LDA 
STA 
CLC 
RTS 

.PAGE 



#FALSE 
OPENFLG 



; Set serial port to not open 

; Insure carry clear for load program 



RS232 Driver 



Open Request 
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n n n o c o 
00353 


/ 






003o4 








r 






r\ n r\ o c c 

00355 








(J 0035 6 


RS_0PEN . EQU 






00035 / 


BIT 


OPENFLb 


; Serial Port open? 


r\ n r\ o c o 
000358 


BPL 


$ 1 


; No 


r\ i uz r> 

000359 


LDA 


ffXNOTAVIL 




000360 


JSR 


S YSERR 




000361 








000362 


$010 LDA 


B_REG 




r\ r\ r\ r 
00 J 6 3 


AND 


#0F 




r\ r\ r\ o r a 
00 J 64 


STA 


MIHBANK 


; Set interrupt handler bank 


n n n q /~ c 
003 DO 


LDA 






UUUjOo 


LDX 


o 1KAUJJK 




003 6 / 


LDY 


SIRADDR+1 




n n n q o 
000368 


JSR 


ALLOCS1R 


/Allocate tne acia 


003 6 9 


BCS 


$020 




3 / 








n r\ n t i 1 

000371 


LDX 


#DCB_LN-1 


; Copy Device Configuration Block 


000372 


; into device control 


oarameter s 




000373 








0003 /4 


$015 LDA 


DCB, X 




U U U 3 / o 


STA 


CN 1 L P ARAM+ 1 , X 




003 / b 


DEX 






n n n q ""7 t 
3 / / 


BPL 


;? 1 5 




3 / o 








0003 / y 


LDA 


#0 




nnmon 
003 o 


STA 


1 S NEWLINE 


; Set newline mode to False 


r\ n r\ o o i 
003o 1 


STA 


NEWLINE 


; Clear newline character 


000382 


STA 


RD_IMMED I ATE 


; Read immediate mode off 


r\ n r\ o o o 

000383 


STA 


IN_PROb 


; XOFF in progress flag off 


n n n o o a 

000384 


STA 


SEND_XON 


; Send XON flag off 


n r\ n o o c 

000385 








n n n 1 n /~ 

000386 


JSR 


CNTL00 


; Set up ACIA 


n n c\ o o 1 

00038 / 


LDA 


#TRUE 


; and clear STAT_REb, STAT_LATCH, 


n n n q o o 
000388 


; Rib rALSE, NO (JU1PU1 


, CHAR OU1, 




0038 9 


~T "NT T~l T~> /~\ Z"" 1 "1 T" \ T \7 "NT T 1 ^ *J 

; IN_PRObl, DLYCNT and 


BRK_CNT 




000390 


STA 


OPENFLb 


; Set serial port open 


000391 


RTS 






n n n q q o 
3 92 








000393 


$020 LDA 


#XN0RESRC 




000394 


JSR 


SYSERR 




000395 


.PAGE 






000396 








r 






000397 


r 
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a a a o o. o 
UUo y o 




RS232 


Driver — 


Close Request 




n n n "D n n 

o ooo y y 












00 4 






















00401 












00 4 02 


RS_CL0SE 


. EQU 






a a a /i a o 
4 Oo 






ASL 


OPENi Lb 


; Serial Port open? 


000404 






BCS 


$05 


; Yes 


0040b 






JMP 


NOTOPEN 




a a a /i a ^ 
0040b 












0040 / 


$05 


LDA 


OBUFCNT 


;Wait for write completion 


n AA /l A o 

00408 






ORA 


DLYCNT 


; and delay complete 


a a a /i a a 

o o o 4 o y 






BNE 


^ n c 

$05 




a a a /i i n 
00410 












nnn/ii i 
411 






PHP 




; Save interrupt status 


nnn/i 1 o 
U 4 1 2 






SE I 




/Disable interrupt system 


A AA /I 1 O 

00 4 1 J 






SE 1 1MHZ 






A A A /I 1 /l 

414 






LDA 


ACIACMD 




A AA /l 1 C 

00 41b 






AND 


JJ, A I - 1 A 

#0F0 


/Disable Rcv/Xmit Interrupt 


a a a a i /~ 

000416 






STA 


ACIACMD 


/ DTR off, RTS off 


H A A /I 1 ""7 

417 






LDA 


AC IAS TAT 


/ Clear any prior interrupt 


a a a a i a 

000418 






PLP 




/Restore interrupt status 


n A A /I 1 A 

000419 












000420 






LDA 


tSIRCOUNT 




A A A /I A 1 

00 421 






LDX 


S IRADDR 




AAA /I A A 

422 






LDY 


SIRADDR+1 




A A A A O Q 
423 






JSR 


TM7 1 7\ T A* A T~ T1 


/Deallocate tne acia 


A A A A A /I 

00 42 4 






RTS 






A A A A A C 

000425 












A A A /I A 

00 42 6 






. PAGE 






A A A A A r "7 

00042 / 






















A A A A A O 

00 42 o 












A A A A A A 

00 42 y 




RS232 


Driver — 


Read Request 




A A A A 1 A 

00 4 3 












AAA A A 1 

000431 






















000432 












0004 J J 


RS_READ 


. EQU 


■A- 




r, n n /I "5 /I 
U U U 41 o 4 






nil 


MID TP'KTTr 1 T C 


/Serial Port open? 


0004 JO 






BMI 


<£ A C 

9 o 




00 4 J 






JMP 


TvT jA T Ai T~l T7 1 TvT 

NO 1 OPEN 




000437 












000438 


$05 


LDA 


ISCSMRPTR 


/Get CSMRPTR from driver st 


000439 






STA 


ICSMRPTR 


/Put in temporary zero page 


000440 






LDY 


#00 


/Prevent offset 


000441 






STY 


RETCNT 


/ Zero return count 


000442 






STY 


RETCNT+1 
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n n n a a q 
U U U 4 4 o 










n n n a a a 
U U U 4 4 4 




LDA 


4J- n XT' TP 

ffUFF 


; One ' s complement count 


n n n /i a c 
(J UU 4 4 3 




EOR 


n T7 1 ^ i" 1 TvT ""P 

RFQON 1 




U U U 4 4 b 




STA 


T - ) T7 1 f~\ r~* TvT ""P 

RFQON 1 




AAA /I /I r "7 

U (J U 4 4 / 




LDA 


#0FF 




n n n /i /i o 
U U U 4 4 




EOR 


T"> T7 1 ^ TvT ""P 1 1 

RFQON 1+1 




U U U 4 4 y 




STA 


REQCNT+1 




U UU 4 o U 










U UU 4 ol 


£ A 1 A 

5 1 


INC 


n tt 1 r\ r~* at ""p 

RFQCN 1 


; Increment count 


U U U 4 bz 




BNE 


$ 1 5 


; Is count zero ? 


n n n /i c q 
U UU 4 o 




INC 


P> T7 1 ^ TvT ""P 1 1 

RFQ01M 1 + 1 




U UU 4 4 




BEQ 


n n a 

? o y y 


;Yes, terminate 


n n n /i c c 

000455 










A A A A r- r 

000456 


5015 


LDA 


IBUFCNT 


;Is input buffer empty ? 


n n n a c n 
00040 / 




BNE 


£■ r\ o n 
5020 


;No, continue 


n n n a c o 
00045S 




BIT 


RD 1MMFD1A1F 


;Is read immediate mode set ? 


n n n /i c o 

o oo 4 o y 




BPL 


5 015 


;No, loop until character received 


00 4 60 




BMI 


5 o y y 


;Yes, terminate 


A A A /I / 1 

0004 61 










A A A A f A 

0004 62 


$ 02 


LDY 


#0 




00 4 6 j 




LDX 


~T O A T\ /TT~k "P* ""P "P* 

ICSMRPTR 




A A A /I /- /I 

00 4 64 




LDA 


~r t a^ n in — ' \r 

ILOCBUF, X 


; Get char from local input buffer 


4 6b 




STA 


(BUFFER) , Y 


; Send to user buffer 


A A A A C C 

4 6 6 




PHA 




; Save character on stack 


n n n a r n 
0046 / 




1NCADR 


T~> T T I - 1 T7 1 P 1 PI 

BUr r FR 


; Increment addr — user buffer pointer 


r\ r\ n, a r o 
00 4 60 




INC 


1 OSMRP 1 R 




4 6 y 




DEC 


IBUFCNT 




00 4 / 




INW 


n T7 1 T 7 TvT T 7 

RF 1 CM 1 




00 4 / I 










AAA /I ""7 A 

000472 




LDA 


MINBUF 


; Check if below mm buffer level 


AAA /l ""J *"} 

000473 




CMP 


IBUFCNT 


; (IBUFCNT < MINBUF ?) 


A A A /I "-7 /I 

U UU 4 / 4 




BCC 


n o c 

5025 


;No, continue 


AAA A ""7 l~~ 

000475 










A A a yi "-7 f 

00 4 / 6 




BIT 


IN_PROb 


;Yes, XOFF in progress ? 


4 / / 




BMI 


5022 


; Yes , send xon 


n r\ n a h o 
00 4 I 










n r\ n a n n 
0004 / y 




BIT 


Rl b r ALSF 


,is Rib false : 


n n n a o n 
4 




BPL 


6 c\ o c 
5025 


;No, continue 


A A A yi O 1 

00 4 1 










AAA /I A A 

000482 




PHP 




; Save interrupt status 


000483 




SEI 




/Disable interrupt system 


000484 




SET_1MHZ 




;Yes, set 1 MHZ mode 


000485 




LDA 


ACIACMD 


; Set RTS true and 


000486 




AND 


#0F2 


; enable xmit interrupt 


000487 




ORA 


#05 
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p n p a o o 
U U U 4 o O 






STA 


ACIACMD 


; Set to LxxxxOlxlJ 


n n r\ /i on 

u uu 4 o y 






LDA 


#0 




n n n a o n 
(J UU 4 y U 






STA 


Rl b r ALSE 


; Llear Rl b r ALbE 


n n p a qi 
U U U 4 y 1 






C TP T" O 1\/TU 7 

Scj 1 ZMHZ 




; bet z MnZ mode 


a Art /i a a 

000492 






PLP 




; Restore interrupt status 


a a a /i a o 

000493 






JMP 


$025 




00 4 94 












00 4 95 


$022 


LDA 


#80 


_ A — . -J \7 A"NT 

; Sena XON 


AAA /I A f 

00496 






STA 


AT — "MFl \7AVT\T 

SEND_XON 


; Set flag 


A A A A C\"~) 

u uu 4 y / 






JSR 


PRIME_OUT 


/Prime output routine 


PPP A A Q 

u u u 4 y o 












a. a a a an 

u uu 4 y y 


$025 


PLA 




/Retrieve character from stack 


A. A A r; A A 

U UUo u u 






BIT 


I S_NEWLINE 


/Is newline mode set ? 


P P P U. P ~\ 
U U U O U 1 






BPL 


;? 1 


/No, get next char 


p n p c p o 
U UUoUz 






CMP 


N E W L 1 JNI E 


/Yes, is char terminator ? 


U UUO U o 






BEQ 


t* n n 

?u y y 


/If yes, terminate 


A A A rr a a 

000504 






JMP 


£■ P 1 P 

$U 1 u 


/No, get next char 


n n n c n c 

000505 












PPPU.PT 

0050 6 


$099 


LDY 


JJ. A. 

#0 




A A A V A "~1 

000507 






LDA 


ICSMRPTR 


/ Terminate 


A A A C A O 

000508 






STA 


I SCSMRPTR 


/ Save pointer 


n rt n c n n 

005 9 












n n n c i n 
000510 






LDA 


TA T7 1 T A 1 TvT ""P 

RE 1 LN 1 


/ Get count of returned bytes 


000511 






STA 


/ A T — 1 T 7 A T 1 A \ \7 

(RETPTR) , Y 


/ Send to user 


A A A r- 1 A 

000512 






LDA 


RETCNT+1 




a a a rr -i a 

000513 






INY 






a a a rr i a 

000514 






STA 


(RETPTR) , Y 




n n n c i c 
000515 












00516 






RTS 




/Return to user 


A A A V 1 ""J 

000517 












A A A C 1 n 

000518 






. PAGE 






00519 






















000520 












a a a rr a -i 

000521 




RS232 


Driver — 


Write Request 




n n n c o o 
0005zz! 












r\ n n n o o 

000523 






















A A A [- A /I 

U UUoz 4 












P P P c o c 

U UUOZO 


RS_WRITE 


. EQU 






U U U oz b 






BIT 


AiT) IT 1 "NTT T (~~ 

(JrElNr Lb 


/ Serial Port open? 


n n n r 9 7 






DMT 

rSJYl-L 


^ n a 

9 U 




000528 






JMP 


NOTOPEN 




000529 












000530 












000531 


$05 


LDA 


OSPRODPTR 


/Get PRODPTR from driver storage 


000532 






STA 


OPRODPTR 


/Put in temporary zero page 



Apple / / / SERI AL DRI VER 1.30 Source Code Listing » PTC 8/ 2001 » Page 13 of 25 



Apple/// Computer I nformation 



/One's complement count 



: Increment count 
: Is count zero ? 

:No 

: Prime consumer 

: Save producer pointer in driver 
: Return to user 

:Is local output buffer full ? 
:No 

: Local buffer is full, prime consumer 



; Get character from user buffer 
/Increment addr - user buffer ptr 

/Get producer pointer 

/ Store character in local buffer 

/Advance local buffer 

/Advance count 

/Branch always taken 



/Serial Port open? 



000533 
000534 
000535 
000536 
000537 
000538 
000539 
000540 
000541 
000542 
000543 
000544 
000545 
000546 
000547 
000548 
000549 
000550 
000551 
000552 
000553 
000554 
000555 
000556 
000557 
000558 
000559 
000560 
000561 
000562 
000563 
000564 
000565 
000566 
000567 
000568 
000569 
000570 
000571 
000572 
000573 
000574 
000575 
000576 
000577 



$010 



$030 



$040 



LDA 
EOR 
STA 
LDA 
EOR 
STA 

INC 
BNE 
INC 
BNE 

JSR 
LDA 
STA 
RTS 

LDX 
INX 
BNE 

JSR 
JMP 

LDY 
LDA 
INCADR 

LDX 
STA 
INC 
INC 
BNE 



.PAGE 



#0FF 
REQCNT 
REQCNT 
#0FF 

REQCNT+1 
REQCNT+1 

REQCNT 
$030 

REQCNT+1 
$030 

PRIME_OUT 

OPRODPTR 

OSPRODPTR 



OBUFCNT 
$040 

PRIME_OUT 

$030 

#00 

(BUFFER) , Y 
BUFFER 

OPRODPTR 
OLOCBUF, X 
OPRODPTR 
OBUFCNT 
$010 



RS232 Driver — Status Request 



RS STAT 



.EQU 
BIT 



OPENFLG 
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n n n c "7 o 
U U U / o 




BMI 


c!: n C 




n r\ n c n o 

u u uo / y 




JMP 


TvT j"i T 7 j"i "F> T7 1 T\T 

NO 1 OPEN 




n n n c o n 
(J DUO o U 


(2 n c 
9 U 


f~* T«7 X T 7 i" 1 T T 

bW 1 1 OH 


i^ ,r PTr ,r T 7 7\ r T 7 O C T 7 7\ T 7 O T«7 

OILblAl, J, blAlbW 




n n r\ c o i 
(J U (J D o 1 










r\ n r\ c o o 










r\ n r\ c o o 


BADCTL 


LDA 


-11. \7 T 7 x — 1 

fXCTLCODE 


; Invalid control code 


n ri n c o /i 

000oo4 




JSR 


SYbERR 




r\ n r\ c o c 

OOOboo 










nnn c o r 
UUUjoD 










r\ f~\ C\ IZ O 1 


STAT6W 


. WORD 


f" 7 T 7 7\ T 7 OO 1 

bTATO 0-1 




nnn coo 




. WORD 


C T 7 7\ T 7 l~> 1 1 

blAlOl— 1 




n c o n 




. WORD 


O T 7 7\ T 7 ("1 O 1 

blAlUz— 1 




u u u o y u 




. WORD 


O T 7 7\ T 7 n Q 1 




nnnRQi 

UUUj"! 










u u u o y z 


o 1 Al U U 


RTb 




; — NOP 


UUU J7j 










n n n c n /i 

(j uuo y 4 










n n n n 
(J UUO y 


I" 1 T 7 7\ T 7 O "1 

STAT 01 


LDY 


-11 o 

#0 


; 1 — Retrieve device control 


r\ r\ r\ rr r\ /- 

(j uuo y o 


; parameters 


(including 


RD_IMMED I ATE 




n n n c n i 

uuuoy / 


; blAl_REG 


C T 7 7\ T 7 

ana biAi_ 


T 7\ T 7 i^"* T 7 \ 

LAI OH ) 




u uuo y O 




LDA 


/ o r 7 t ~r r" 1 t 7 \ \7 

( CSLI ST ) , Y 




(j uuo y y 




CMP 


ONTL_PARAM 


/Check for room in status list 


UUUbUU 




rsCb 


9 U 1 


; >= OK 


UUUDUl 










UUUbUz 




T RT\ 
llDA 


ff AL1 J_iF/\K1 v 1 




UUUbU j 




JSR 


CVCTTDD 




n n n r c\ a 
(J UU bU 4 










UUUbU o 


9 01 


liU I 


tJ U1M 1 -Li J_iL\l — 1 




n n n ^ n 
UUUbUb 




PHP 




; Save interrupt status 


n a n r\ "~i 

00 60 / 




SEI 




/Disable interrupt system 


n n n ^ n o 

00 60 o 










6 3 


£■ n c 

505 


LDA 


ONTL_PARAM, Y 




n n n r i n 
00 6 1 U 




STA 


f/~<CT~rC r T'\ \7 

(ObLl b 1 ) , I 




n n n £ i i 
611 




DEY 






00 612 




BPL 


n c 
503 




00 6 1 J 










n n n r i a 
00614 




INY 






n n n r i c 
6 1 




STY 


b 1 Al LAI OH 


; Clear status latch bits 


616 




PLP 




/Restore interrupt status 


n n n iz i t 
61 / 




RTS 






000618 










000619 










000620 


STAT02 


LDY 


#0 


;2 Get newline character 


000621 










000622 




LDA 


I b_NEWLINE 
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000623 
000624 
000625 
000626 
000627 
000628 
000629 
000630 
000631 
000632 
000633 
000634 
000635 
000636 
000637 
000638 
000639 
000640 
000641 
000642 
000643 
000644 
000645 
000646 
000647 
000648 
000649 
000650 
000651 
000652 
000653 
000654 
000655 
000656 
000657 
000658 
000659 
000660 
000661 
000662 
000663 
000664 
000665 
000666 
000667 



STAT03 



CNTOUT 



STA 
INY 
LDA 
STA 

RTS 

LDY 

LDA 
JSR 
LDA 
JSR 
LDA 
JSR 
LDA 
JSR 

RTS 

STA 
INY 
LDA 
STA 
INY 

RTS 

.PAGE 



(CSLIST) , Y 

NEWLINE 
(CSLIST) , Y 



#0 

#0FF 

CNTOUT 

OBUFCNT 

CNTOUT 

#0FF 

CNTOUT 

IBUFCNT 

CNTOUT 



(CSLIST) , Y 
#0 

(CSLIST) , Y 



RS232 Driver 



Control Request 



RS CNTL 



$05 



CNTLSW 



. EQU 

BIT 
BMI 
JMP 

SWITCH 
JMP 



.WORD 
.WORD 



OPENFLG 
$05 

NOTOPEN 

CTLSTAT, 3, CNTLSW 
BADCTL 



CNTL00-1 
CNTL01-1 



:3 Retrieve driver buffer info 

: Output buffer size 

: Number of chars in output buffer 

: Input buffer size 

: Number of chars in input buffer 



; high byte (0) 



; Serial Port open? 
; Ok 
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n n n r c o 
UUUbbo 




. WORD 


/"•■NTT T ("1 O 1 

ON 1 LU z — 1 




n n n r r n 

u uu bo y 




. WORD 


/"•■NTT T ("1 O 1 

ON 1 LU — 1 




U UU b / U 










r\ r\ r\ r "~i i 

U U U b / I 










U UU 6 /z 


CNTL0 


. EQU 




; — Reset device 


n n n r n i 
U UU / o 










000674 




BIT 


IN_PR0G 


; XOFF in progress ? 


00 6 / o 




BPL 


?0z0 


;No, continue 


n r> r\ r "~i r 

U UU o / o 










c\ r\ c\ f "~i "~i 

000677 




LDA 


ii n 

#80 


;Yes, send XON 


00 6 / 8 




STA 


bhjbiu XON 


; Set flag 


u u u b / y 




JSR 


rKl Mil V U 1 


/Prime output routine 


n n n r o n 
6 o 










n n n r o i 
6 81 


£ n i c 
IpUlO 


BIT 


SEND XON 


; Wait until XON gets out 


n n n r o o 
6 0/ 




BMI 


!?Ul3 




00 6 o J 










n n a r o /i 

6 8 4 


£ n n 

5 Oz 


PHP 




; Save interrupt status 


r\ n r\ r o c 

000685 




SEI 




/Disable interrupt system 


A A n O 
U UU O 




LDA 


BAUD 


/Validate data rate 


n n n r o t 

U UU do / 




AND 


#00F 




r\ r> r\ r o o 
U U U 6 




STA 


BAUD 




u uu do y 










n n n £ q n 
U U U b y u 




OITT 1 1\/TU 1 

bhi 1 IMrlZ 






n n n r n 1 

u uu b y l 










r\ n r\ r o o 

u u u b y Z 




LDA 


#0 




u uu b yj 




STA 


IBUr ON 1 


/ Zero Input Buffer count 


U UU b y 4 




STA 


OBUr ON 1 


/ Zero Output Buffer count 


u uu b yo 




STA 


DL YON 1 


/ Zero delay count 


a c\ c\ r d r 

00 69 6 




STA 


BRK_0NT 


/ Zero interval count 


0069 / 










r\ r\ r\ r r\ q 

6 98 




STA 


OSPRODPTR 


/ Zero pointers 


u u u o y y 




STA 


nnn 1\/T"D T) T 1 ID 

UOoMKr 1 K 




/ 




STA 


ISOSMRPTR 




r\ r\ r\ "~i r\ i 

U U U / U 1 




STA 


~T T" \ T 1 T~* 

IPRODPTR 




n n n t n o 
U U U / Uz! 










U UU / U J 




STA 


Rib r ALSE 


; Hear Ris false flag 


00 / 4 




STA 


NO_OUTPUT 


/ Clear suspend output flag 


c\ r\ c\ "~i r\ c 

/0o 




STA 


OHAR_OUT 


/ Zero output character count 


00 / 6 




STA 


IN PROOl 


/ ENQ in progress flag off 


000707 




STA 


STAT_LATCH 


/Clear status latch bits 


000708 




LDA 


ACIASTAT 




000709 




STA 


STAT_REG 


/ Save status reg 


000710 










000711 




LDA 


DFORMAT 


/Validate data format 


000712 




AND 


#0E0 
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; Set receiver clock source to internal 

;If data rate is 110 baud 

; force two stop bits 

; Set up ACIA control register 



;Xmit disabled, Rev enabled 
; Set up ACIA command register 
/Restore interrupt status 

; 1 -- Load device control parameters 



/Check length of control list 
= OK 

NG 



; Set up ACIA 



;2 Set New Line Character 



000713 
000714 
000715 
000716 
000717 
000718 
000719 
000720 
000721 
000722 
000723 
000724 
000725 
000726 
000727 
000728 
000729 
000730 
000731 
000732 
000733 
000734 
000735 
000736 
000737 
000738 
000739 
000740 
000741 
000742 
000743 
000744 
000745 
000746 
000747 
000748 
000749 
000750 
000751 
000752 
000753 
000754 
000755 
000756 
000757 



$025 



; DTR and RTS on 



CNTL01 



ORA 
ORA 
LDX 
CPX 
BNE 

ORA 

STA 
LDA 
ASL 
ASL 
ASL 
ASL 
AND 
ORA 

STA 

PLP 
RTS 



LDY 



#BITON4 

BAUD 

#03 

BAUD 

$025 

#BITON7 

ACIACTL 

DFORMAT 

A 

A 

A 

A 

#0E0 
#09 

ACIACMD 



#0 



except STAT_REG and STAT_LATCH 



$01 
$05 



CNTL02 



LDA 
CMP 
BEQ 

LDA 
JSR 

LDY 

LDA 
STA 
DEY 
BPL 

JSR 

RTS 

.EQU 



(CSLIST) , Y 
CNTL_PARAM 
$01 

#XCTLPARM 
SYSERR 

#CNTL_LN-3 

(CSLIST) , Y 
CNTL_PARAM, Y 

$05 

CNTL00 
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n n r\ t c o 

00 loo 




LDY 


#0 




n n n "7 c n 

ooo / o y 




LDA 


( CSLi S 1 ) , 1 




n n n n c n 
00 / DO 




STA 


T C TiTF 'TVTT TTvTTT 1 

1 S NhWLlNL 




U U / D 1 




INY 






00 / oz 




LDA 


(CSLI ST ) , Y 




/ DO 




STA 


TvTT^Tj.TT T'MT -1 




00 / 64 










00 / do 




RTS 






n n n t f 
00 /DO 










00 / o / 


CNTLUo 


. EQU 




; 3 — Transmit Break 


n n n n c o 
U /Do 










UUU /by 


£ n ^ 




M"DTTT7T , 'KT'T 

Uo Ur OlM 1 


/Wait for write compl et ion 


n r\ n i r\ 
/ / 




BNE 


9 O 




/ / I 










U / / z 




TAY 






U / / J 




LDA 


( LbLl b 1 ) , i 


; Get number of break intervals 


/ / 4 




BMI 


t* n c n 
9 UO 


; Too large, return 


n n n n n c 
UUU/ / D 






^ n r n 
9 U 


; Zero, return 


UUU/ / 






fflUl . 


, uiiecK 11 > iuu (zj. sec; 


n n n t "7 "7 

UUU// / 




BCS 


ct - n c n 
9O0O 


; Too large, return 


n n m 7 o 

/ / o 










n n n t h a 

ooo / / y 




STA 


T~> Tl TV p^TT 

BRK LN 1 


; Save interval count 


UUU / o U 




PHP 




; Save interrupt status 


UUU / o 1 




SE I 




/Disable interrupt system 


n n n i o o 
UUU / o z 




Shj 1 IMhi 




; bet 1 Mriz mode 


UUU / o o 




LDA 


AL-1ALMU 


; Transmit Break 


n n n t o /i 
00 / o 4 




ORA 


#0C 




UUU / o O 




STA 


AL.1ALMU 


; Set to [xxxxllxx] 


n n n t o 
00 / o D 




LDA 


-U- ri 
# 




UUU / o / 




STA 


RTb_FALSE 


/Clear RTS raise 


n n n n o o 

UUU / Bo 




PLP 




/Restore interrupt status 


n n n t o n 

uuu / o y 










nnmnn 

uuu / y u 


5 U 1 U 


LDY 


#181 . 


/This douDle loop takes 165 ms 


n n n t o i 

uuu / y 1 




LDX 


#U 


/ in 1 MHz mode 


n n n t o o 

uuu / yz 


? U 1 3 


DEX 






n n n n n "5 

uuu / y J 




BNE 






n r\ n t o a 

uuu / y 4 




DEY 






n n n t o c: 

uuu / y O 




BNE 


9 U 1 3 




n n n t o ^ 

uuu / y D 










n n n t n t 

u u u / y / 




DEC 


n T) TV f~* t\ T T 

BRK LN 1 


/ Loop for interval count 


UUU7y8 




BNE 


$010 




U0U7y9 










UUU8UU 




JSR 


PRIME_0UT 


/Prime output routine 


U0U8U1 










UUU8U2 


$U50 


RTS 
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; Save current status reg 



/Check receiver data reg full 
;No, continue 

; Input interrupt 



; Latch status bits 



/Treat as output interrupt 



; Latch status bits 



/Receive next character 



,-Read character 



;Is XON/XOFF protocol mode set? 
;No, continue 

;Yes, check for XOFF 
;No 



;Yes, suspend output 



000803 
000804 
000805 
000806 
000807 
000808 
000809 
000810 
000811 
000812 
000813 
000814 
000815 
000816 
000817 
000818 
000819 
000820 
000821 
000822 
000823 
000824 
000825 
000826 
000827 
000828 
000829 
000830 
000831 
000832 
000833 
000834 
000835 
000836 
000837 
000838 
000839 
000840 
000841 
000842 
000843 
000844 
000845 
000846 
000847 



. PAGE 



ACIA MASTER INTERRUPT HANDLER 



ACIAMIH 



$010 



RS IN 



.EQU 

STY 

TYA 
AND 
BEQ 

TYA 
AND 
ORA 
STA 
JMP 

TYA 
AND 
ORA 
STA 
JMP 

.EQU 

SET_1MHZ 
LDX 

SET_2MHZ 
TXA 

BIT 
BPL 

CMP 
BNE 

LDA 
STA 
JMP 



STAT_REG 



#BITON3 
$010 



#67 

STAT_LATCH 
STAT_LATCH 
RS_IN 



#60 

STAT_LATCH 
STAT_LATCH 
RS OUT 



ACIADATA 



PROTOCOL 
$016 

CTLCHR1 
$010 

#TRUE 
NO_OUTPUT 
RS OUT 
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nnnt 
UUUi 


3 A Q 


9 U 1 U 




PTT pTJD O 

U 1 LiUriKZ 


, unecK tor aun 


n n n c 
U U U c 


3 A Q 




BNE 


9 U 1 O 


; No 


U U U c 












nnnc 
U U U i 


1 CI 

)jl 




LDA 


41- IT 1 7\ T CI? 


; Yes , resume output 


00? 


3 C O 




STA 


NO_OUTPUT 




n n n < 
U UU c 


5 O 3 




BEQ 


RS_OU 1 


; Always taken 


n n n c 
U UU c 


504 










U UU t 


5 o b 


5015 


LDX 


IBUFCNT 


/Check if max buffer level exceeded 


00 £ 


3 5 6 




CPX 


MAXBUF 


, (IBUFCNT >= MAXBUF ;) 


nnnc 
U UU c 


ITT 

30 1 




BCC 


C" n o n 
9Uz(J 


;No, continue 


U UU e 


3 C O 
5 O O 










n n n c 
U UU c 


) C O 

j o y 




BIT 


T T\T T"l T"> j"i f~> 

lN_PK(Jb 


;Yes, check if XOFF in progress 


nnnc 
U UU i 


3 £T n 
3 OU 




BMI 


£ n n n 


;Yes, continue 


nnnc 
U U U c 


3^1 

Sol 










nnnc 
U UU c 


3 /~ O 

5 OZ 




LDX 


#B1 1 UN b 


;No, set XOFF needs to be sent 


U U U c 


3 £ "3 




STX 


IN rKUb 




nnnc 
U UU I 


5 64 




BNE 


£■ n o n 
? Uz U 


/Branch always taken 


n n n c 
U UU c 


5 bo 










nnnc 
U UU c 


3 r r 
3 O O 


9 U 1 O 


BVC 


9 U 1 / 


; Is hNQ/ACK protocol mode set; 


00? 


3 67 










n n n c 
U UU i 


3 £T O 
3 DO 




CMP 


L 1 LCHRz 


, Yes, cneck tor ACK 


n n n c 
U UU c 


3 o y 




BNE 


£■ n o n 


;No, continue 


U U U c 


3 "7 n 

3 / U 










nnnc 
U UU c 


3 ""7 1 
5/1 




LDA 


^* T 7 7\ T~l ^ , T\T r T l 

UHARUN 1 


;Yes, reset output char count 


U U U c 


3 / Z 




STA 


UriAK UU 1 




n n n c 
U UU i 


3 / J 




LDA 


41- n 
ffU 




nnnc 
U U U c 


3 H A 
3/4 




STA 


IN rKUbl 


/Clear ENQ in progress 


nnnc 
U U U c 


lie 
5/3 




BEQ 


"DC CW T T 1 

Kb UU 1 


/Always taken 


n n n c 
U U U c 


3/0 










00? 


3 7 7 


$ 1 7 


BIT 


T T FpiT IT 1^ TT 7\ T — 1 

HDW_H SHAKE 


/Is Hardware handshake enabled? 


nnnc 
U UU c 


3 "7 O 

3 / O 




BPL 




/No, continue 


n n n < 
U UU c 


3 t n 

3 / y 










U UU c 


3 o n 

30 U 




LDX 


IBUr CN 1 


/Check if max buffer level exceeded 


nnnc 
U UU i 


3 O 1 
30 1 




CPX 


MAXBUr 


/ T n T TP P TVT T I\/T7\ VFITTTT 1 O \ 

/ (IBUrCNl >— MAXBUr r) 


n n n < 
U UU i 


3 O O 
3 OZ 




BCC 


n o n 


/No, continue 


U U U c 


3 Q T 
3 O O 










n n n < 
U UU c 


3 O /I 
SO 4 




LDX 


BKK_CN 1 


/Check for Break in progress 


nnnc 
U UU i 


3 O C 
3 O O 




BNE 




/Yes, continue (can't change RTS) 


nnnc 
U U U c 


3 O /C 
3 00 










UUUc 


3 9. 1 
3 / 




pua 

r rlf\ 




, 1MO f SaVtr CllalaCtcI Oil oUdOK 


000J 


388 




LDA 


#BIT0N7 




000J 


389 




STA 


RTS_FALSE 




000E 


390 




SET_1MHZ 






OOOf 


391 




LDA 


ACIACMD 


/Set RTS to false 


000E 


392 




AND 


#0F3 


/ Xmit interrupt will be disabled 
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; ACIA set to [xxxxOOxx] 

; Retrieve character from stack 

;Is buffer full ? 

;No, continue 

;Yes, latch char lost bit 

/Always taken 

/Address in local buffer to store data 
/Store char in local input buffer 



/Output next character 

/Check for Break in progress 
/No, continue 
/Yes, return 

/Hardware handshake mode enabled ? 
/No, continue 

/Yes, check for RTS false 
/ RTS true, continue 
/RTS false, return 

/Check DSR and DCD status 

;DSR and DCD true, continue 

/DSR or DCD false, disable xmit int 
/ unless delay in progress 



/Check xmit data reg empty 
/Reg empty, continue 

/Reg not empty, enable xmit interrupt 



000893 
000894 
000895 
000896 
000897 
000898 
000899 
000900 
000901 
000902 
000903 
000904 
000905 
000906 
000907 
000908 
000909 
000910 
000911 
000912 
000913 
000914 
000915 
000916 
000917 
000918 
000919 
000920 
000921 
000922 
000923 
000924 
000925 
000926 
000927 
000928 
000929 
000930 
000931 
000932 
000933 
000934 
000935 
000936 
000937 



$020 



$025 



RS_OUT 



$001 



$002 



$003 



STA 

SET_2MHZ 
PLA 

LDX 
INX 
BNE 

LDA 
ORA 
STA 
BMI 

LDX 
STA 
INC 
INC 

.EQU 

LDA 
BEQ 
JMP 

BIT 
BPL 

BIT 
BPL 
JMP 

LDA 
AND 
BEQ 

LDA 
BNE 
JMP 

LDA 
BIT 
BNE 

JMP 



ACIACMD 

IBUFCNT 

$025 

#BITON7 
STAT_LATCH 
STAT_LATCH 
RS_OUT 

IPRODPTR 
ILOCBUF, X 
IBUFCNT 
IPRODPTR 



BRK_CNT 

$001 

RETURN 

HDW_H SHAKE 
$003 

RTS_FALSE 

$002 

RETURN 

STAT_REG 

#60 

$003 

DLYCNT 

$011 

D_XMIT 

#BITON4 

STAT_REG 

$004 

E XMIT 
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:XOFF need to be sent ? 
:No, continue 

:Yes, set XOFF in progress 
: Send XOFF 



: XON need to be sent ? 
:No, continue 

:Yes, clear flags 



; Send XON 



;Any transmit delay in progress ? 
:No 

:Yes, decrement count 



:Is local output buffer count zero ? 
:Yes, disable xmit interrupt and return 

:Is output suspended ? 

:Yes, disable xmit interrupt and return 

:Is, ENQ/ACK protocol mode set? 
:No, continue 

:Yes, check output char count 

: Count not yet exhausted, send char 

: Check for ENQ in progress 

:Yes, disable xmit interrupt and return 

:No, set ENQ in progress 

:Send ENQ 



/Decrement output char count 
;No, get consumer pointer 



00093 
00093 
00094 
00094 
00094 
00094 
00094 
00094 
00094 
00094 
00094 
00094 
00095 
00095 
00095 
00095 
00095 
00095 
00095 
00095 
00095 
00095 
00096 
00096 
00096 
00096 
00096 
00096 
00096 
00096 
00096 
00096 
00097 
00097 
00097 
00097 
00097 
00097 
00097 
00097 
00097 
00097 
00098 
00098 
00098 



8 $004 
9 

1 
2 
3 
4 
5 
6 
7 



$005 



9 

1 
2 
3 
4 
5 
6 
7 

8 $011 



$010 



$015 



$016 
$018 



BIT 

BVC 

LDA 
STA 
LDA 
JMP 

BIT 
BPL 

LDA 
STA 
STA 
LDA 
JMP 

LDA 
BEQ 

DEC 
JMP 

LDX 
BEQ 

BIT 
BMI 

BIT 

BVC 

LDA 
BNE 

BIT 
BMI 

LDA 
STA 
LDA 
JMP 

DEC 
LDX 



IN_PROG 
$005 

#BITON7 
IN_PROG 
CTLCHR1 
$020 

SEND_XON 
$010 

#0 

SEND_XON 
IN_PROG 
CTLCHR2 
$020 

DLYCNT 
$015 

DLYCNT 
E_XMIT 

OBUFCNT 
D_XMIT 

NO_OUTPUT 
D_XMIT 

PROTOCOL 
$018 

CHAR_OUT 
$016 

IN_PR0G1 
D_XMIT 

#BITON7 
IN_PR0G1 
CTLCHR1 
$020 

CHAR_OUT 
OCSMRPTR 
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000983 
000984 
000985 
000986 
000987 
000988 
000989 
000990 
000991 
000992 
000993 
000994 
000995 
000996 
000997 
000998 
000999 
001000 
001001 
001002 
001003 
001004 
001005 
001006 
001007 
001008 
001009 
001010 
001011 
001012 
001013 
001014 
001015 
001016 
001017 
001018 
001019 
001020 
001021 
001022 
001023 
001024 
001025 
001026 
001027 



$020 



$022 

$023 

$024 
E XMIT 



D XMIT 



RETURN 



LDA 
DEC 
INC 

TAX 

SET_1MHZ 
STX 

CPX 
BNE 
LDA 
JMP 

CPX 
BNE 
LDA 
JMP 

CPX 
BNE 
LDA 

STA 

SET_1MHZ 

LDA 

AND 

ORA 

STA 

RTS 

SET_1MHZ 

LDA 

AND 

ORA 

STA 

RTS 



PRIME_OUT . EQU 

; request routines 

PHP 
SEI 
BIT 



OLOCBUF, X 

OBUFCNT 

OCSMRPTR 



ACIADATA 

#ASC_CR 
$022 
CRDELAY 
$024 

#ASC_LF 
$023 
LFDELAY 
$024 

#ASC_FF 

E_XMIT 

FFDELAY 

DLYCNT 



ACIACMD 

#0F2 

#05 

ACIACMD 



ACIACMD 

#0F2 

#09 

ACIACMD 



; Get character from buffer 



; Send character 
/Check for any delay 



/Enable transmit interrupt 

; Set to [xxxxOlxl] 

/Return to user 

/Disable transmit interrupt 

/Set to [xxxxlOxl] 

/Return to user 

/Called by Read, Write and Control 



/ Save interrupt status 
/Disable interrupt system 



RTS_FALSE 
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001028 
001029 
001030 
001031 
001032 
001033 
001034 
001035 
001036 



$010 



BMI 
JSR 

SET_2MHZ 
PLP 

RTS 

. END 



$010 
E XMIT 



/Return if RTS false 
/Enable transmit interrupt 

/Restore interrupt status 

/ Return 



#################################################################################################### 



END OF FILE 
LINES 

CHARACTERS 

Formatter 

Author 



RS232 .text 

1036 

51017 

Assembly Language Reformatter 1.0.2 (07 January 1998) 

David T. Craig — 71533.60 6@compuserve.com — Santa Fe, New Mexico USA 



#################################################################################################### 




The End 
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